home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / periodic.src < prev    next >
Text File  |  1991-10-19  |  3KB  |  48 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ PERIODIC by ?
  3. DIR
  4.   SYMB
  5.     \<< ELM SWAP POS DUP { 1 + 2 / ANUM } IFT
  6.     \>>
  7.   ANUM
  8.     \<< \-> N
  9.       \<< N "ATOMIC#" \->TAG
  10.           NAM N GET "NAME" \->TAG
  11.           ELM N 2 * 1 - GET "SYMBOL" \->TAG
  12.           ELM N 2 * GET "ATWT" \->TAG
  13.       \>>
  14.     \>>
  15.   NAM { "Hydrogen" "Helium" "Lithium" "Beryllium" "Boron" "Carbon" "Nitrogen"
  16. "Oxygen" "Flourine" "Neon" "Sodium" "Magnesium" "Aluminum" "Silicon"
  17. "Phosphorous" "Sulfur" "Chlorine" "Argon" "Potassium" "Calcium" "Scandium"
  18. "Titanium" "Vanadium" "Cromium" "Manganese" "Iron" "Cobalt" "Nickel" "Copper"
  19. "Zinc" "Gallium" "Germanium" "Arsenic" "Selenium" "Bromine" "Krypton"
  20. "Rubidium" "Strontium" "Yttrium" "Zirconium" "Niobium" "Molybdenum"
  21. "Technetium" "Ruthenium" "Rhodium" "Palladium" "Silver" "Cadmium" "Indium"
  22. "Tin" "Antimony" "Tellurium" "Iodine" "Xenon" "Cesium" "Barium" "Lanthanum"
  23. "Cerium" "Praseodymeum" "Neodymium" "Promethium" "Samarium" "Europium"
  24. "Gadolinium" "Terbium" "Dyprosium" "Holmium" "Erbium" "Thulium" "Ytterbium"
  25. "Lutetium" "Hafneum" "Tantalum" "Tungsten" "Rhenium" "Osmium" "Iridium"
  26. "Platinum" "Gold" "Mercury" "Thallium" "Lead" "Bismuth" "Polonium" "Astatine"
  27. "Radon" "Francium" "Radium" "Actinium" "Thorium" "Protactinium" "Uranium"
  28. "Neptunium" "Plutonium" "Americium" "Curium" "Berkelium" "Californium"
  29. "Einsteinium" "Fermium" "Mendelevium" "Nobilium" "Lawrencium"
  30. "Unknown" "Unknown" "Unknown" "Unknown" "" "Unknown" }
  31.   ELM { "H" 1.0079 "He" 4.0026 "Li" 6.941 "Be" 9.0122 "B" 10.81 "C" 12.011
  32. "N" 14.007 "O" 15.999 "F" 18.998 "Ne" 20.179 "Na" 22.99 "Mg" 24.305
  33. "Al" 26.982 "Si" 28.086 "P" 30.974 "S" 32.06 "Cl" 35.453 "Ar" 39.948 "K" 39.098
  34. "Ca" 40.08 "Sc" 44.956 "Ti" 47.9 "V" 50.941 "Cr" 51.996 "Mn" 54.938 "Fe" 55.847
  35. "Co" 58.933 "Ni" 58.71 "Cu" 63.546 "Zn" 65.38 "Ga" 69.72 "Ge" 72.59 "As" 74.922
  36. "Se" 78.96 "Br" 79.904 "Kr" 83.8 "Rb" 85.468 "Sr" 87.62 "Y" 88.906 "Zr" 91.22
  37. "Nb" 92.906 "Mo" 95.94 "Tc" 97 "Ru" 101.07 "Rh" 102.91 "Pd" 106.4 "Ag" 107.87
  38. "Cd" 112.41 "In" 114.82 "Sn" 118.69 "Sb" 121.75 "Te" 127.6 "I" 126.9 "Xe" 131.3
  39. "Cs" 132.91 "Ba" 137.33 "La" 138.91 "Ce" 140.12 "Pr" 140.91 "Nd" 144.24
  40. "Pm" 145 "Sm" 150.4 "Eu" 151.96 "Gd" 157.25 "Tb" 158.93 "Dy" 162.5 "Ho" 164.93
  41. "Er" 167.26 "Tm" 168.93 "Yb" 173.04 "Lu" 174.97 "Hf" 178.49 "Ta" 180.95
  42. "W" 183.85 "Re" 186.21 "Os" 190.2 "Ir" 192.22 "Pt" 195.09 "Au" 196.97
  43. "Hg" 200.59 "Tl" 204.37 "Pb" 207.2 "Bi" 208.98 "Po" 209 "At" 210 "Rn" 222
  44. "Fr" 223 "Ra" 226.03 "Ac" 227 "Th" 232.04 "Pa" 231.04 "U" 238.03 "Np" 237.05
  45. "Pu" 244 "Am" 243 "Cm" 247 "Bk" 247 "Cf" 251 "Es" 254 "Fm" 257 "Md" 258
  46. "No" 259 "Lr" 260 "Unk" 261 "Unk" 262 "Unk" 263 "Unk" 264 "Unk" 0 "Unk" 266 }
  47. END
  48.